From 478921f4c3acab34b9375de96aec6b5765a7b198 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Fri, 4 Sep 2009 08:15:15 +0000 Subject: [PATCH] * net/tramp-compat.el (tramp-compat-line-beginning-position): New defun. --- lisp/net/tramp-compat.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el index 3a10a0c3c37..96c8bd86b77 100644 --- a/lisp/net/tramp-compat.el +++ b/lisp/net/tramp-compat.el @@ -143,6 +143,16 @@ (tramp-file-name-handler 'set-file-times filename time)))))) +(defsubst tramp-compat-line-beginning-position () + "Return point at beginning of line (compat function). +Calls `line-beginning-position' or `point-at-bol' if defined, else +own implementation." + (cond + ((fboundp 'line-beginning-position) + (funcall (symbol-function 'line-beginning-position))) + ((fboundp 'point-at-bol) (funcall (symbol-function 'point-at-bol))) + (t (save-excursion (beginning-of-line) (point))))) + (defsubst tramp-compat-line-end-position () "Return point at end of line (compat function). Calls `line-end-position' or `point-at-eol' if defined, else -- 2.30.2